score <- function(input) {
    if ((input[4]) <= (0.75)) {
        var0 <- c(1.0, 0.0, 0.0)
    } else {
        if ((input[3]) <= (4.75)) {
            var0 <- c(0.0, 1.0, 0.0)
        } else {
            if ((input[3]) <= (5.049999952316284)) {
                if ((input[4]) <= (1.75)) {
                    var0 <- c(0.0, 0.8333333333333334, 0.16666666666666666)
                } else {
                    var0 <- c(0.0, 0.08333333333333333, 0.9166666666666666)
                }
            } else {
                var0 <- c(0.0, 0.0, 1.0)
            }
        }
    }
    if ((input[4]) <= (0.800000011920929)) {
        var1 <- c(1.0, 0.0, 0.0)
    } else {
        if ((input[1]) <= (6.25)) {
            if ((input[3]) <= (4.8500001430511475)) {
                var1 <- c(0.0, 0.9487179487179487, 0.05128205128205128)
            } else {
                var1 <- c(0.0, 0.0, 1.0)
            }
        } else {
            if ((input[4]) <= (1.550000011920929)) {
                var1 <- c(0.0, 0.8333333333333334, 0.16666666666666666)
            } else {
                var1 <- c(0.0, 0.02564102564102564, 0.9743589743589743)
            }
        }
    }
    return(((var0) + (var1)) * (0.5))
}
